﻿Imports BUS

Public Class frmChiTietDocGia

    Private Sub frmChiTietDocGia_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dt As DataTable = TaiKhoan_BUS.loadAllInfoOfNhanVien(frmDangNhap.user)

        With dt
            For Each r As DataRow In .Rows
                lblTenDocGia.Text = r(0).ToString
                lblGioiTinh.Text = r(1).ToString
                lblNgaySinh.Text = r(2).ToString
                lblEmail.Text = r(3).ToString
                lblDienThoai.Text = r(4).ToString
                lblGiayToTuyThan.Text = r(5).ToString
                lblThongTin.Text = r(6).ToString
                lblLoaiDocGia.Text = r(7).ToString
            Next
        End With




    End Sub
End Class